home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / BUSINESS / BASE11.ZIP / FILETYPE.TXT < prev    next >
Text File  |  1993-11-16  |  2KB  |  70 lines
  1. Data files types in Visual Basic format.
  2.  
  3. Type RecordClient
  4.   ClientName    As String * 30
  5.   ClientPhone   As String * 30
  6.   ClientFax     As String * 30
  7.   ClientLanguage    As Integer
  8.   ClientStreet  As String * 25
  9.   ClientCity    As String * 25
  10.   ClientState   As String * 25
  11.   ClientZip     As String * 15
  12.   ClientTPS     As String * 18
  13.   ClientTVQ     As String * 18
  14.   ClientDeposit As Currency
  15.   ClientAchats  As Currency
  16.   ClientNotes   As String * 500
  17. End Type
  18.  
  19. Type RecordCie
  20.   CieName       As String * 30
  21.   CieOwner      As String * 30
  22.   CiePhone      As String * 30
  23.   CieFax        As String * 30
  24.   CieStreet     As String * 25
  25.   CieCity       As String * 25
  26.   CieState      As String * 25
  27.   CieZip        As String * 15
  28.   CieTPS        As String * 18
  29.   CieTVQ        As String * 18
  30.   CieInvoice    As Long
  31. End Type
  32.  
  33. Type RecordHNotes
  34.   Notes         As String * 2000
  35. End Type
  36.  
  37. Type RecordHeader
  38.   HeaderType    As Integer
  39.   HeaderVisible As Integer
  40.   HeaderNumber  As Integer
  41.   HeaderText    As String * 60
  42.   HeaderXPos    As Integer
  43.   HeaderYPos    As Integer
  44. End Type
  45.  
  46. Type RecordCard
  47.   CardName      As String * 16
  48. End Type
  49.  
  50. Type RecordProduct
  51.   ProductName   As String * 60
  52.   ProductOrigin As Integer
  53.   ProductBuy    As Integer
  54.   ProductSell   As Integer
  55.   ProductText   As String * 500
  56.   ProductInclude As Integer
  57. End Type
  58.  
  59. Type RecordSupplier
  60.   SupplierCieName   As String * 50
  61.   SupplierName      As String * 35
  62.   SupplierPhone     As String * 30
  63.   SupplierFax       As String * 30
  64.   SupplierStreet    As String * 35
  65.   SupplierCity      As String * 25
  66.   SupplierState     As String * 35
  67.   SupplierZip       As String * 15
  68.   SupplierNotes     As String * 500
  69. End Type
  70.